﻿Public Class ExitInterview
    Inherits InterviewData
    Private _firstName As String
    Private _lastName As String
    Private _clientID As String

    Public Sub New()

    End Sub
    Public Sub New(ByVal data As InterviewData)
        If (Not IsNothing(data)) Then
            Me.AnswersText = data.AnswersText

            Me.QuestionsText = data.QuestionsText
            Me.TemplateID = data.TemplateID
        End If
       
    End Sub
    Public Property FirstName() As String
        Get
            Return _firstName
        End Get
        Set(ByVal value As String)
            _firstName = value
        End Set
    End Property
    Public Property LastName() As String
        Get
            Return _lastName
        End Get
        Set(ByVal value As String)
            _lastName = value
        End Set
    End Property

    Public Property ClientID() As String
        Get
            Return _clientID
        End Get
        Set(ByVal value As String)
            _clientID = value
        End Set
    End Property

End Class
